CICA 1995 September (Japanese)

home *** CD-ROM | disk | FTP | other *** search

/ CICA 1995 September (Japanese) / CICA Shareware for Windows CD-ROM (Walnut Creek) (September 1995) (Japanese) (Disc 1).iso / disc1 / misc / help30.exe / HLPCNTXT.SMM < prev next >

Wrap

INI File | 1992-06-08 | 6.0 KB | 719 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet III [port] LPT3: [lang] 1 [desc] Creates a Context footnote from the title for the help topic. 708029156 22 693508439 97 1 0 0 0 0 0 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] TimesNewRomanPS 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial MT 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 1 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 1 37 0 12 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] <:#278,9360>' This macro creates a Context footnote from the title for a help topic. <:#278,9360>' It copies the title for the topic, creates a Context footnote, and pastes the title in that footnote. <:#278,9360>' It then capitalizes the footnote text, converts any spaces to underlines, and places the insertion <:#278,9360>' point back at the top of the page. <:#278,9360>' NOTE: This macro assumes that the insertion point is at the left margin on the first line of the <:#278,9360>' page, that the first line contains only a return, and that the title for the help topic is on the <:#278,9360>' second line. You must modify the macro if you do not use this format. <:#278,9360> <:#278,9360>FUNCTION HLPCNTXT1() <:#278,9360>declare stripit(name) <:#278,9360>Type( "<[>Down]<[>Home]<[>SHIFTEnd]" ) <:#278,9360>TEXT=CURSHADE$() <:#278,9360>TEXT=STRIPIT(TEXT) <:#278,9360>Type( "<[>Up]<[>Home]" ) <:#278,9360>Footnotes(1 0 1 0 0 ) <:#278,9360>SetStyle("Context" ) <:#278,9360>TYPE("{TEXT}") <:#278,9360>Type( "<[>SHIFTHome]" ) <:#278,9360>Uppercase( ) <:#278,9360>Type( "<[>RIGHT]" ) <:#278,9360>Type( "<[>ESC]" ) <:#278,9360>END FUNCTION <:#278,9360> <:#278,9360>function stripit(name) <:#278,9360>spos = 1 <:#278,9360>newname = "" <:#278,9360>while (1) <:#278,9360> txt = strfield$(name, spos, " ") <:#278,9360> if txt = -1 or txt = "" <:#278,9360> break <:#278,9360> endif <:#278,9360> newname = strcat$(newname, "_", txt) <:#278,9360> spos = spos + 1 <:#278,9360>wend <:#278,9360>newname = right$(newname, (len(newname) - 1)) <:#278,9360>return newname <:#278,9360>END FUNCTION > [Embedded] 00005509 > [macsum] 2 HLPCNTXT1 0 0 2 8 stripit 202 1 4 23 [macse] 14 HLPCNTXT1 0 6 "[40][36][4131]" 0 24 13 8 1 16 STRIPIT "{1}" 13 8 1 0 6 "[38][36]" 2 160 1 1 0 1 0 0 2 323 1 "Context" 0 6 "{1}" 0 6 "[4132]" 2 273 1 0 6 "[39]" 0 6 "[27]" 6 0 15 9 14 stripit 5 1 8 2 7 "" 8 3 5 1 11 00000211 0 20 "{0}" "{2}" " " 13 8 4 6 4 5 -1 18 0 6 4 7 "" 18 0 1 2 11 00000147 10 00000211 0 16 "{3}" "_" "{4}" 13 8 3 6 2 5 1 3 0 8 2 10 00000033 0 14 "{3}" 13 5 1 3 1 0 807 "{3}" [X] 13 8 3 6 3 15 9 6 1 15 9 00005534